home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue66 / Construc / Refactor / Source / fAbout.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-10-15  |  787 b   |  42 lines
  1. unit fAbout;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Buttons, ExtCtrls;
  8.  
  9. type
  10.   Tf_about = class(TForm)
  11.     Panel1: TPanel;
  12.     BitBtn1: TBitBtn;
  13.     Memo1: TMemo;
  14.     procedure FormCreate(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. var
  22.   f_about: Tf_about;
  23.  
  24. implementation
  25. uses uVersionInformation;
  26.  
  27. {$R *.DFM}
  28.  
  29. procedure Tf_about.FormCreate(Sender: TObject);
  30. var i : tMSResourceNameEnum;
  31. begin
  32.   memo1.lines.clear;
  33.   with TVersionInformation.instance do begin
  34.     FileName := application.exename;
  35.     for i := low(i) to high(i) do
  36.       memo1.lines.add(MSVerNames[i]+' = '+ Values[MSVerNames[i]]);
  37.     end;  
  38.  
  39. end;
  40.  
  41. end.
  42.